home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / tt / creative / tt_neo.lst < prev   
Encoding:
File List  |  1996-09-18  |  935 b   |  35 lines
  1. '
  2. '     Routine für das Laden von TT-NEO-Bilder
  3. '
  4. '     1992 (c) by Michael Ryffel
  5. '
  6. '     Creative Paint 1992 (c) by Michael Ryffel
  7. '
  8. '
  9. FILESELECT "\*.*","*."+"NEO",file$
  10. '
  11. IF file$<>""
  12.   @load_tt_neo
  13. ENDIF
  14. '
  15. PROCEDURE load_tt_neo
  16.   '
  17.   ' gilt NUR für NEO-Bilder in TT-Low
  18.   '
  19.   zero$=SPACE$(4)              ! Strings erstellen...
  20.   reserve$=SPACE$(120)
  21.   file_r$=SPACE$(12)
  22.   pal$=SPACE$(512)
  23.   res$=SPACE$(4)
  24.   '
  25.   OPEN "i",#1,file$            ! Lade Bild in Speicher
  26.   BGET #1,V:res$,4             !   4 Bytes für den Bildschirmmodus
  27.   BGET #1,V:file_r$,12         !  12 Bytes für den Datei-Namen
  28.   BGET #1,V:zero$,4            !   4 Bytes für die Katze...
  29.   BGET #1,V:reserve$,108       ! 108 reservierte Bytes
  30.   BGET #1,V:pal$,512           ! 512 Bytes für die Palette
  31.   '
  32.   BGET #1,XBIOS(2),153600      ! 'move' Bild auf den Bildschirm
  33.   ~XBIOS(84,0,256,L:V:pal$)    ! setze Farbpalette
  34. RETURN
  35.